home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Focus for Success
/
Focus for Success.iso
/
pc
/
game2.dxr
/
00087_Field_87.txt
< prev
next >
Wrap
Text File
|
1995-02-28
|
1KB
|
52 lines
on mouseUp
--COPYRIGHT 1993 BY ROBERT M. NIDEFFER
PUT THE TICKS INTO LINE 2 OF CARD FLD TIME
PUT THE SHORT NAME OF ME INTO X3
IF X3=CARD FLD ANSWER1 THEN
PUT LINE 1 OF CARD FLD TIME INTO A
PUT LINE 2 OF CARD FLD TIME INTO B
PUT(B-A) INTO T1
PUT LINE 1 OF CARD FLD COUNT INTO X
PUT CARD FLD SECONDS INTO Y
IF Y-X<2 THEN
SHOW CARD FLD "GAME OVER"
WAIT 2 SECONDS
HIDE CARD FLD "GAME OVER"
CLICK AT LOC OF CARD BUTTON SCORE
EXIT MOUSEUP
END IF
PUT 60*(Y-X) INTO T2
IF T1<T2 THEN
PUT THE NUMBER OF LINES IN CARD FLD SUBJECT1 INTO CT
ADD 1 TO LINE 1 OF CARD FLD COUNT2
PUT T1 INTO LINE CT+1 OF CARD FLD SUBJECT1
PUT 0 INTO LINE 2 OF CARD FLD COUNT3
--SHOW CARD FLD "CORRECT"
--PLAY BOING
--WAIT 30
--HIDE CARD FLD CORRECT
CLICK AT LOC OF CARD BUTTON "PLAY BONUS"
END IF
IF T1>T2 THEN
SHOW CARD FLD SORRY
WAIT 3 SECONDS
HIDE CARD FLD SORRY
END IF
END IF
IF X3<>CARD FLD ANSWER1 THEN
--SHOW CARD FLD "WRONG"
REPEAT WITH I=1 TO 5
HIDE CARD BUTTON I
END REPEAT
--HIDE CARD FLD "WRONG"
ADD 1 TO LINE 1 OF CARD FLD COUNT3
CLICK AT LOC OF CARD BUTTON "PLAY LATERDUDE"
END IF
CLICK AT LOC OF CARD BUTTON START
end mouseUp